1 PRINT"[147]NACH TASTENDRUCK WIRD EIN MSP-PROGRAMM  ERZEUGT, MIT DEM DU ZEILEN"
10 PRINT"EINES BASIC-PROGRAMMS LOESCHEN KANNST."
11 PRINT"DAFUER LAEDST DU DEIN PROGRAMM UND GIBST SYS49152,<ERSTE ZEILE>,<LE";
12 PRINT"TZTE ZEILE> ":PRINT"EIN."
15 PRINT" VON CARSTEN HANSEN, DK-6100 HADERSLEV":POKE198,0:WAIT198,1:POKE198,0
20 V=49152:BI=49295:AN=16:EZ=100:AB=10
30 M=255:FORA=VTOBI:B=B+1:READD:CH=(CH+B*D)ANDM:POKEA,D:IFAN>BTHENNEXT
40 CH=(2*CH)ANDM:Z=PEEK(63)+256*PEEK(64):DZ=EZ+C*AB:READCK
50 PRINT"[147]LIST"Z-AB"-"Z:POKE631,19:POKE632,13:POKE198,2
60 IFC=0THENN=(BI-V)/AN:IFV+INT(N+1)*AN-1<>BITHENPOKE214,10:LIST20
70 IFCK<>CHTHENPRINT"DATENFEHLER":POKE214,10:LIST20
80 IFZ<>DZTHENPRINT"ZEILE"DZ"FEHLT!":POKE214,10:LIST20
90 C=C+1:B=0:CH=0:POKE198,0:NEXT:PRINT"OK
100 [131] 032,253,174,032,138,173,032,247,183,032,019,166,165,095,133,253,228
110 [131] 165,096,133,254,032,253,174,032,138,173,032,247,183,133,021,200,048
120 [131] 208,002,230,021,132,020,032,019,166,165,095,133,251,165,096,133,088
130 [131] 252,056,165,045,229,251,141,167,002,165,046,229,252,141,168,002,098
140 [131] 160,000,177,251,145,253,056,173,167,002,233,001,141,167,002,173,026
150 [131] 168,002,233,000,141,168,002,230,251,208,002,230,252,230,253,208,180
160 [131] 002,230,254,173,167,002,201,000,208,216,173,168,002,201,000,208,226
170 [131] 209,165,253,133,045,165,254,133,046,032,051,165,032,096,166,032,200
180 [131] 156,166,096,000,000,000,000,000,000,000,000,000,000,000,000,000,016